home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 22 / Cream of the Crop 22.iso / program / eflibpt4.zip / DEMO / SCREEN / PROGBAR.PAS < prev    next >
Pascal/Delphi Source File  |  1996-07-31  |  689b  |  23 lines
  1. { Borland Pascal Extended Function Library - EFLIB (C) Johan Larsson, 1996
  2.   Demonstration; progress bars
  3.  
  4.   EFLIB IS PROTECTED BY THE COPYRIGHT LAW AND MAY NOT BE COPIED, SOLD OR
  5.   MANIPULATED. FOR MORE INFORMATION, SEE PROGRAM MANUAL! THIS DEMONSTRAT-
  6.   ION PROGRAM MAY FREELY BE USED AND DISTRIBUTED.                          }
  7.  
  8.  
  9.  
  10. uses EFLIBSCR;
  11.  
  12.  
  13. var MyProgress : ProgressBarObjectType; Index : word;
  14.  
  15. begin
  16.      { Initialize a progress bar }
  17.      MyProgress.Initialize (1, 4, 80, 4,  { Coordinates }
  18.                             1, 1000);     { Current and maximum value }
  19.  
  20.      for Index := 1 to 1000 do MyProgress.Update(Index);
  21.  
  22.      MyProgress.Intercept;
  23. end.